home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / db3ledge / recon.prg < prev    next >
Encoding:
Text File  |  1986-01-12  |  3.0 KB  |  116 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. ***************************** (RECON.PRG)--JAY KENNEY
  4. CLEAR
  5. SET TALK OFF
  6. SET BELL OFF
  7. STORE 0.00 TO BBAL,DEPO,OTHER,BEGIN,Y,Z,SC,NSF,A,B
  8. STORE '  ' TO T
  9. SET CONFIRM ON
  10. SET EXACT OFF
  11. DO WHILE .T.
  12. @ 6,21 SAY 'Want to do a bank reconciliation?'
  13. ?
  14. STORE ' ' TO OPTION
  15. WAIT '                                  ?  'TO OPTION
  16. IF OPTION<>'Y'
  17. RETURN
  18. ENDIF
  19. USE DEPOSITS
  20. SUM AMTDEP TO A
  21. USE LEDGER
  22. CLEA
  23. @ 15,10 SAY 'You are going to have to enter a T in the POST field'
  24. @ 16,10 SAY 'for the checks which the bank did not have on the ì
  25. statement.'
  26. @ 17,26 SAY 'Press Ctrl W when finished.'
  27. ?
  28. WAIT '                          Press anything to continue...'
  29. BROW FIEL POST,CHKNO,WHOM,AMTCHK,CKDATE
  30. @ 1,15 SAY 'Balance per bank ? ' GET BBAL
  31. @ 3,15 SAY 'Outstanding deposits ? ' GET DEPO
  32. @ 5,15 SAY 'Other items to deduct ? ' GET OTHER
  33. @ 7,5 SAY [Begin balance per &MTITLE ? ] GET BEGIN
  34. @ 9,15 SAY 'Bank service charges ? ' GET SC
  35. @ 11,15 SAY 'Bank NSF charges ? ' GET NSF
  36. @ 13,15 SAY 'Deposits to bank ? ' GET A
  37. @ 15,15 SAY 'Line of credit ? ' GET B
  38. @ 23,25 SAY 'Want to bail out ? '
  39. WAIT '                                 ' TO OPTION
  40. IF OPTION<>'N'
  41. CLEA
  42. RETURN
  43. ENDIF
  44. @ 23,20 CLEA
  45. READ
  46. USE LEDGER
  47. CLEA
  48. GO TOP
  49. SUM AMTCHK TO X FOR POST
  50. SUM AMTCHK TO Z
  51. GO TOP
  52. @ 15,24 SAY 'Do you want to print this report? '
  53. WAIT '                                       ? ' TO OPTION
  54. IF OPTION='Y'
  55. SET DEVI TO PRIN
  56. SET PRIN ON
  57. ENDIF
  58. ?
  59. STORE STR(BBAL+DEPO-X-OTHER,9,2) TO Y
  60. ? [&MTITLE]+"  - Bank Reconciliation  "+DTOC(DATE())
  61. ?
  62. ? '-------------------------------------------------------------------------------'
  63. ?
  64. ? 'Balance per bank_______________________________  ì
  65. '+STR(BBAL,9,2)
  66. ?
  67. ? 'Add:'
  68. ? 'Deposits in transit____________________________  ì
  69. '+STR(DEPO,9,2)
  70. ?
  71. ? 'Deduct:'
  72. ? 'Outstanding checks_____________________________  '+STR(X,9,2)
  73. LIST OFF '#',CHKNO,' ',AMTCHK,'   ',WHOM FOR POST
  74. ?
  75. ? 'Other items____________________________________  ì
  76. '+STR(OTHER,9,2)
  77. ?
  78. ? 'Adjusted balance per books_____________________  ì
  79. '+STR(BBAL+DEPO-X-OTHER,9,2)
  80. ? '                                                 ~~~~~~~~~'
  81. ?
  82. ? 'Balance per books begin month__________________  ì
  83. '+STR(BEGIN,9,2)
  84. ?
  85. ? 'Add:'
  86. ? 'Cash receipts(deposits)_________ '+STR(A,9,2)
  87. ? 'Line of credit__________________ '+STR(B,9,2)
  88. ? '                                 ~~~~~~~~~~~'
  89. ? '                                 '+STR(A+B,9,2)
  90. ?
  91. ?
  92. ? 'Deduct:'
  93. ? 'Disbursements                    '+STR(Z,9,2)
  94. ? 'Service charges                  '+STR(SC,9,2)
  95. ? '(Bank NSF item charge)           '+STR(NSF,9,2)
  96. ? '                                  ~~~~~~~~~'
  97. ? '                                 '+STR(Z+SC+NSF,9,2)
  98. ?
  99. ?
  100. ? 'Balance per books end month____________________  ì
  101. '+STR(BEGIN+A+B-Z+SC+NSF,9,2)
  102. ?
  103. ? ì
  104. '-----------------------------------------------------------------ì
  105. -------------'
  106. ?
  107. ? CHR(12)
  108. SET PRINT OFF
  109. SET DEVICE TO SCREEN
  110. IF OPTION='N'
  111. WAIT
  112. ENDIF
  113. CLEAR
  114. ENDDO
  115. RETURN
  116.